﻿Imports VN.INS.DL.DALC
Imports VN.INS.BL.BE
Public Class InformeMensualBC

    Public Function ListaInformeAdministrador(ByVal strPeriodo As String, ByVal strAnhioFirma As String) As DataTable
        Dim objLIDA As InformeMensualDA
        Dim objDt As DataTable

        Try
            objLIDA = New InformeMensualDA
            objDt = objLIDA.ListaInformeAdministrador(strPeriodo, strAnhioFirma)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaInformeMonitoreador(ByVal struser As String, ByVal strPeriodo As String, ByVal strAnhioFirma As String) As DataTable
        Dim objLIDA As InformeMensualDA
        Dim objDt As DataTable

        Try
            objLIDA = New InformeMensualDA
            objDt = objLIDA.ListaInformeMonitoreador(struser, strPeriodo, strAnhioFirma)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaInformeEspecialista(ByVal strPersEspecialista As String, ByVal strPeriodo As String, ByVal strAnhioFirma As String) As DataTable
        Dim objLIDA As InformeMensualDA
        Dim objDt As DataTable

        Try
            objLIDA = New InformeMensualDA
            objDt = objLIDA.ListaInformeEspecialista(strPersEspecialista, strPeriodo, strAnhioFirma)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaInformeJefeInmmediato(ByVal strJefeInmediato As String, ByVal strPeriodo As String, ByVal strAnhioFirma As String) As DataTable
        Dim objLIDA As InformeMensualDA
        Dim objDt As DataTable

        Try
            objLIDA = New InformeMensualDA
            objDt = objLIDA.ListaInformeJefeInmmediato(strJefeInmediato, strPeriodo, strAnhioFirma)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class
